home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / misc / electetc.lzx / pressure.opl < prev    next >
Text File  |  2007-02-22  |  1KB  |  48 lines
  1. PROC test:
  2.     local a,b,c,d,e,f,g,a1,b1,c1,d1,e1,f1,g1
  3.     do
  4.     dinit "Pressures"
  5.     dfloat a,"Bar    - ",0,100000
  6.     dfloat b,"mBar   - ",0,100000
  7.     dfloat c,"inWG   - ",0,100000
  8.     dfloat d,"PSI    - ",0,100000
  9.     dfloat e,"inHg   - ",0,100000
  10.     dfloat f,"mmWG   - ",0,1000000
  11.     dfloat g,"Pa     - ",0,10000000
  12.     dialog
  13.     if g <> g1
  14.     b=g*.01 :g1=g
  15.     endif
  16.     if a <> a1
  17.     a1=a :b=a*1000 :c=a*401.462 :d=a*14.50374 :e=a*29.52756 :f=a*10197.1348
  18.     b1=b :c1=c :d1=d :e1=e :f1=f
  19.     elseif b <> b1
  20.     b1=b :a=b/1000 :c=b*.401462 :d=b*.01450374 :e=b*.02952756 :f=b*10.1971348
  21.     a1=a :c1=c :d1=d :e1=e :f1=f
  22.     elseif c <> c1
  23.     c1=c :a=c*.00249089 :b=c*2.49089 :d=c*.03612736 :e=c*.0735548 :f=c*25.4
  24.     a1=a :b1=b :d1=d :e1=e :f1=f
  25.     elseif d <> d1
  26.     d1=d :a=d*.06894763 :b=d*68.94763 :c=d*27.678059 :e=d*2.03599 :f=d*703.0226986
  27.     a1=a :b1=b :c1=c :e1=e :f1=f
  28.     elseif e <> e1
  29.     e1=e :a=e*.0338666 :b=e*33.8666 :c=e*13.5953 :d=e*.49116 :f=e*345.32062
  30.     a1=a :b1=b :c1=c :d1=d :f1=f
  31.     elseif f <> f1
  32.     f1=f :a=f*.000098066 :b=f*.098066762 :c=f*.039370078 :d=f*.001422429 :e=f*.002895859
  33.     a1=a :b1=b :c1=c :d1=d :e1=e
  34.     else
  35.     at 1,1 :print"Enter 0 to quit"
  36.     endif
  37.     a=val(fix$(a,3,9))
  38.     b=val(fix$(b,3,9))
  39.     c=val(fix$(c,3,9))
  40.     d=val(fix$(d,3,9))
  41.     e=val(fix$(e,3,9))
  42.     f=val(fix$(f,3,10))
  43.     g=val(fix$(g,3,11))
  44.     a1=a :b1=b :c1=c :d1=d :e1=e :f1=f :g=b*100 :g1=g
  45.     until f=0
  46. ENDP
  47.  
  48.